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“7. EDITORASLUTÉCIA 


Introdução 


Embora todos os micros nacionais 
utilizem a linguagem BASIC, existem 
vários dialetos desta linguagem usados 
em micros de diferentes marcas e 
modelos, Os micros nacionais podem ser 
divididos em seis “familias”: a família 
Spectrum (TK-85, TK-90X), a família 
TRS-80 (DGT-1000, CP-S00 etc.), a 
familia TRS-80 Color (CP-400), a família 
Apple (Micro Engenho, Ap-lI etc.), a 
familia MSX (Expert, Hot Bit) e a 
familia PC (Ego, 1-7000 etc.) Se você 
não souber a que familia pertence o seu 
micro, poderá obter a informação em 
qualquer loja especializada. 

Neste livro, a listagem principal de 
cada programa é para os micros da 
familia TRS-80. As linhas que precisam 
ser mudadas para que o programa 
funcione em outros computadores estão 
indicadas por símbolos e as modificações 
aparecem no final de cada listagem. Os 
simbolos são os seguintes: 

O familia TRS-80 Color 

Y familia Spectrum 

O família Apple 

BE familia MSX 

4 família PC 

A Commodore 64 e VIC 20* 

Cada vez que você vir o simbolo da 
família a que pertence o seu micro, 
procure no final da listagem uma linha 
com o mesmo simbolo e o mesmo 
número. Use-a no lugar da linha 
correspondente da listagem principal. Na 
página 17 há notas especiais para os 
usuários do TK-2000, do MSX e do PC. 


*Até 0 momento não têm equivalentes no Brasil. 


Como carregar e executar os 
programas 


Escreva as linhas exatamente como estão 
na listagem, incluindo todos os espaços e 
sinais de pontuação. Depois de bater 
cada linha, verifique na tela se tudo está 
certo antes de apertar a tecla RETURN 
(ou a tecla equivalente para o seu micro). 

Para começar o jogo, entre com RUN. 
Em alguns jogos, as coisas acontecem 
muito depressa, de modo que é melhor 
ler atentamente as instruções antes de 
começar. Se o programa não funcionar 
corretamente, o melhor é listá-lo e 
comparar as instruções com as do livro, 
uma por uma, até descobrir onde está o 
erro. 


Experiências com os jogos 


Este livro contém várias sugestões para 
modificar e ampliar os programas, mas 
não tenha medo de introduzir suas 
próprias alterações. Não há perigo de 
danificar o computador; se sua idéia não 
der certo, você sempre poderá voltar ao 
programa original. 

Você provavelmente terá vontade de 
mudar a velocidade de alguns jogos, 
especialmente depois que estiver 
familiarizado com eles. As instruções 
para fazer isso estão perto da listagem de 
cada programa. 

Se o seu computador é capaz de gerar 
cores ou sons, consulte o manual para 
descobrir como funcionam as instruções 
correspondentes e experimente usá-las nos 
programas deste livro. 


Hustrações: Rob McCaig, Sue Walliker, Martin Newton e Graham Smith. 


Diagramação: Roger Priddy. 
Programa *“Micropuzzle”: Les Howarth. 


Programa “O Desafio dos Monstros”: Adrian Hall. 


Torre do Terror 


Você sente a garganta seca, as pernas trêmulas, um frio na espinha... está entrando na 
Torre do Terror! 

& Aperte A para andar pelos quartos. Oh! Um esqueleto! Logo adiante, um' fantasma. 
Não! Até um lobisomem! A cada novo susto, seu coração bate mais depressa. 

Você pode escolher entre avançar (A) ou recuar (R) para se acalmar um pouco. Não 
demore demais... só tem até a meia-noite para chegar ao terraço e conquistar o 
Tesouro. Por outro lado, cuidado com o ritmo cardíaco. Se passar de 150, você ficará 
louco e nada poderá impedi-lo de pular pela janela. 


Como funciona 
Experimente mudar o ) 10: Vai para a parte onde são 
jo voto limite dos batimentos | lidos os dados. 
20 LET R$="BOR SORTE” cardíacos. 30: RM é o quarto onde você 
30 LET RN=O — está, 
JO 40 LET H=2]:LET M=INTCRNDCO)MNO)+IO Você sabe como 40-50: Escolhe a hora ii al 


Sam aumentar 0 número de) - fixa o ritmo cardíaco. 
OO 60 CLS:PRINTSPRINT quartos? 90: 1 à 2 
70 PRINT “TORRE DO TERROR" : Imprime o comentário 


80 PRINT armazenado em R$. 
90 PRINTSPRI 100-160: Verifica em que 
andar e quarto você está e 
120 PRINTAPRINT"VOCE ESTA HO"; qr fee informação, : 
130 TF FL=O THEN PRINT * ANDAR TERREO” Ss -180: Imprime outras informações. 
140 IF FL=6 THEM PRINT * TERRAÇO” ESSS N 190: GF é uma bandeira que é 
levantada quando há algo q 
assustador no quarto seguinte. 
Jo PanuraPanar 230 “apso MO E A NÇEE ] 200: Verifica se você chegou ao terraço. 4 
ça incluir outros e 
200 IF RW=30 THEM GOTO 350 demonios ão ã 
210 LET TR=INTCRND(O)89+1) rama. 220: Decide se vai haver algo 


220 IF RND(0)).6 THEN GOSUB 420 assustador no quarto 


o ama aa 0 seguinte. Em caso afirmativo, 


MO ISO RE THEM BOTO 240 | vai para uma sub-rotina. 
= 230-280: Recebe uma instrução do 
E Rev energia SG ) jogador e age de acordo com ela. 


TF Rhe-1 THEN LET R4=O á E 
LET Me INTCRND(O)2361)21F NOS9 THEN Me-60SLET Ho] anos, Teneime nas (Otero 


TF H24 THEM GOTO 360 
1F PISO TREM GOTO 380 
1F P(4O THE LET P=40 cardíaco passou de 150. 
IF FL=TR AMD RWDXO))0.5 THEN GOSUB 520 330: Verifica se você está no quarto 
0 a Qual é o Tesouro da Jonde se encontra o alçapão. 
II CER CE Torre? Acrescente )400-410: Sub-rotina para avançar. 
S70 PRINTOMRNNT = TIRDE DENIS! "ASTOR uma mensagem ao f Aumenta 0 ritmo cardíaco se há 
380 PRINT “VOCE FICOU LOUCO E” programa para algo assustador no quarto. 
90 PRN SE Joca + im dores À explicar isso. 420-460: Escolhe o tipo de 
SEILET R$="ARAMMA! à 
ANO LEI PeP-13LET RMSRM SRETURM pros co eo apra O em pu 
AV IIO 470 LET TY=INTAOCON 3H) 470-510: Leitura dos dados 
430 LET WE=GSCTY) (inicialização). 
(val 440 LET S=INTCRNDCO)SS) +FL+TIS2 520: Sub-rotina do alçapão. 
450 PRINTSPRINT “A FRENTE VOCE VE UM “;U8 Re EE 
e 460 LET GF=ISRETUAM Modificações 


W 470 DIM G5(3) 
O 40 LET GMNI=ESQUELETO 4 V 40,210,220,290,330,420,440 Substitua 


a 490 LET GS(2)="FANTASHA” RND(O) por ANO 


140 TF FLC6 THEN PRINT e 
NO PRINTSPRINT "SAO Veja se € capaz de 


500 LET G8(3)="LOBISOMEN" 40,210,220,290,330,420,440 Substitua, % 
S1O RETURN RND(O) por RNDCT) 
1 520 LET Rss" VOCE CAIU EM UM ALCAPAD!SSLET RMS LET PeperOsRETURM 460 PRINT CHRSCIA7)SPRINTSPRINT (oo 
(O 50 HOMESPRINT:PRINT ; 
4240 GET IS 
0240 1s="s1F PEEXC-IG30AN)IZ? 
THEN GET 18 


NH Maio vemomsas In hj 


Os Crânios da Pirâmide 


Uma mente sem corpo... foi assim que você ficou depois daquele terrível acidente 
que sofreu durante a construção da Grande Pirâmide. 

Você precisa de toda a sua energia mental para satisfazer ao Espírito da 
Pirâmide. Todo dia, ele lhe fornece um número. Você deve fazer com que cinco 
crânios caiam do topo da Grande Pirâmide em pedras numeradas, de forma a 
somarem aquele número. 

Aperte 1, 2, 3 ou 4 para soltar um crânio. Obtenha o número pedido e estará 
livre da Maldição da Pirâmide. 


Veja se é capaz 
de substituir o 
simbolo do 
crânio por um 


30 CLS:PRINT 
PRINT "OS CRANIOS DA PIRAMIDE” 
oO PRINT 
60 PRINT "VOCE PRECISA” 
70 PRINT "OBTER “;N:PRINT 
80 LET K=3000:G0SUB 540 


AO 90 CLS:LET Y=2 


100 FOR 1=1 TO 4 
NO LET AS=CHRS(4B+1):LET Xz: em 
120 GOSUB 560 
130 NEXT 1 
140 LET A8="f":FOR 1=1 TO 5 
150 LET Y=2+241 
160 FOR J=1 TO 143 
170 LET X=7-1+24J 
180 GOSUB 560 
190 NEXT J 
200 NEXT 1 
210 LET Y=14 
220 FOR 1=1 TO 9:LET AS=CHRS(48+) 
230 LET X=1+281:00SUB 560 
240 NEXT 1 
250 LET 9=0 
260 FOR 1=1 TO 5 
270 LET AS="ESCOLHA COLUNA" 
ET Y=0:60SUB 560 
KEYS 
THEN GOTO 290 
310 LET R=VALCIS) 
320 IF RI OR R)4 THEN GOTO 290 
330 LET Y=3:LET K=400:LET KX=6+24R 
340 LET F=0 


10: Dá valores iniciais às variáveis. 
20; Escolhe o número que 0 
jogador deve obter. 

30-80: Imprime mensagem 

e espera para que o jogado: 
possa vê-la, 

90-240: Imprime a pirâmide e os 
números no topo e na base 

da pirá e. 

250: Inicia a contagem de 
pontos em zero. 


Se o seu micro 
não tem o 


Aumente o valor do 
SP na linha 10 para 


A acelerar o programa, 


260: Fixa o número de 
crânios. 

270-280: Imprime 
mensagem no canto 
superior esquerdo da tela. 
290-300: Espera que uma 
tecla seja apertada. 
310-320: Ve se a tecla 
apertada está entre 1 e 4. 
Se não está, volta para 
290. 

330: X e Y são as 
coordenadas do crânio. 
Nesta linha, o crânio é 
colocado no topo da 
pirâmide. 

340: F é uma bandeira que 
assinala se o movimento 
anterior foi um desvio 
lateral. 


350 


LET AS="0" 
GOSUB 560 
GOSUB 540 
LET AS=" “:GOSUB 560 


IF F=0 AND YC13 THEN LET X=X+SONCRNDCO)=.5) 


LET Y=Y+1:LET F=1-F 

1F YC14 THEN GOTO 350 

LET S=5+(X-1)/2 

LET X=15:LET Y=0 

LET AS=STR$(1)+"2"+STRS(S) 
GOSUB 560 

NEXT 1 


350-370: Imprime crânio e espera. 
380: Remove o crânio. 


390: Escolhe o sentido do desvio 
(se o valor de F permite um desvio 
lateral). 


400: Faz o crânio descer uma linha. 


410: Verifica se o crânio chegou à 
base da pirâmide. 


420: Calcula a soma de acordo com 
a coluna em que o crânio termina. 


LET K=1000:G0SUB 540 

LET D=ABS(S-N):LET TS=TS+D 
CLS:PRINTEPRINT 

PRINT "SUA CONTAGEM AGORA E “TS 

IF D)] THEN LET K=3000:60SUB 540:G0TO 20 


o “E VOCE ESTA LIVRE PARA IR EMBORA!” coma e o número desejado. 


FOR T=1 TO K STEP SPINEXT T Acrescenta essa diferença à 
RETURN contagem total. Limpa a tela e 
OMVANO 560 PRINTE YH64+X,AS; imprime a contagem. 
570 RETURN 


430-450: Imprime a soma. 
470: Espera. 
480-500: Calcula a diferença entre a 


510: Se a diferença é maior que 1, 
volta para uma nova tentativa. 


520: Imprime mensagem final. 


540-550: Sub-rotina para esperar 
por um tempo que depende de K. 


560-570: Sub-rotina para colocar o 
cursor na posição X,Y da tela. 


Você seria 
capaz de mudar 
os limites do 
número que 0 
jogador deve 
obter? 


Modificações 


O 20,390 Substitua RND(O) por RNDCT) 
V 20,390 Substitua RND(O) por RND 
6 30,90,490 Substitua CLS por HOME 
4 30,90,490 Substitua CLS por PRINT CHRS(147) 
0290 18="":IF PEEK(-16384))127 THEN GET 18 
4 290 BET I$ 
v 560 PRINT AT Y,X;AS 
0560 VTRB(Y+1):HTAB (X+1):PRINT AS 
4560 PRINT CHR$(19);2FOR LL=] TO Y: 
PRINT:NEXT:PRINT TAB(X);AS 
4 1560 LOCATE X,V:PRINT AS 
0560 PRINTE Y432+X, AS; 


Pig” ia DAMA ERRO * 
O Desafio dos Monstros 


Lutar com monstros é um esporte perigoso! Pior para você, que se prepara para 
enfrentar alguns dos monstros mais ferozes do Universo. Para isso, terá que usar 
toda a sua agilidade mental. Deverá calcular, por exemplo, o esforço muscular 
necessário para deter o monstro, o que implica multiplicar o tamanho do monstro 
pela distância a que ele se encontra de você. 

Se os números parecerem muito difíceis, você pode apertar o Botão de Pânico 
(tecla P), Nesse caso, terá que calcular a quantidade de adrenalina de que o seu 
corpo necessita para sobreviver à crise, dividindo o aumento do ritmo cardíaco pelo 
consumo de oxigênio. Cuidado, porém, para não usar demais o Botão de Pânico, ou 
poderá forçar o coração e perder os sentidos. 

Para vencer o desafio, você terá que sobreviver a 12 rounds, cada um contra um 


monstro diferente. 
sd 
Como o programa funcion: 


4040 cis 20: Faz 0 número de vezes que o 
50 LET X=] Botão de Pânico foi usado igual 
60 LET Y=6 zero. 
70 LET N=1 á 30-60: Estabelece limi 
75 LET tamanho e a distância do 


À (VAO EO LET G=INTIRNO(ON YO 7075: Nida nliero id roms 


AVAMO 90 LET I=INTCRND(O)KK+K) 80: Escolhe o tamanho do 
100 LET Y=7+0.5 monstro. 
NO LET X=x40.5 90: Escolhe a distância. 
a 100-120: Aumenta de 0.5 os 
FEET Robo limites de tamanho e distância 
130: PRINT para o round seguinte. 
140 PRINT 210-220: Pede uma resposta e vai 
150 PRINT “TAMANHO DO MONSTRO: ”: para uma sub-rotina para 
160 PRINT 6 recebê-la. . 
170 PRINT 230: Se a resposta está errada, 


“ “ ula para 320. 

bs uau pt ; 250: Imprime insagõt sé 

200 PRINT olta para o round seguinte. 

es Ti 

220 GOSUB 570 der tb i 
ao ES 1E,20881 T ro seo rs po 

250 PRINT “HONSTRO SOB CONTROLE" [RÃ SO me-o 

260 IF NC] THEN GOTO 75 alifbáiio 

270 PRINT “UFA!!! O MONSTRO" aumentando o valor 

280 PRINT “ESTA CANSADO E FOI" de Q na linha 660, 

290 PRINT “PROCURAR OUTRA VITIMA.” 

300 PRINT "VOCE ESCAPOU!!!” 

310 STOP 
AO 320 CLS 

330 PRINT “VOCE FOI ESMAGADO 

340 PRINT “ATE A MORTE! 

350 PRINT “PELO MONSTRO" 

30 PRINT 

370 PRINT “VOCE SOBREVIVEU “;H;* RI 


400- olhe o consumo de 
oxigênio e a quantidade de 


380 STOP 

40390 CLS 
WramO ADO LET UX=INTCRND(O)49+1) 
ramo 410 LET UY=INTCRND(O)49+1) 


pânico, imprime advertência quando! BR 
chega a 3 e encerra o jogo quando | 
chega a 4. | 
460-510: Imprime mensagens e pede | 
resposta. 

O VE pad THEN 0010700 520: Fixa o valor de Q no início da 

450 IF P=3 THEN PRINT "ESTA VENDO ESTRELAS" Contagem das linhas eia 


460 PRINT “PANICO!!!” 30: Vai para a sub 
470 PRINT analisa as respostas. 


480 PRINT “RITMO CARDIACOS “;U 540; Se a resposta está errada, vai 


490 PRINT "CONSUMO DE OXIGENIO: “;UX para 320. 
500 PRINT E 550-560: Se a resposta está certa, 


510 PRINT “QUANTIDADE DE ADRENALINA? “; encerra O jogo ou volta para o 


LEI RIO round seguinte. 
sa T 0=100 570-690: SUB-ROTINA PARA 


a PEV, 09 ruen GOTO 320 ANALISAR AS RESPOSTAS 


40550 CLS:1F NC] .THEN GOTO 75 570: Faz o contador de tempo igual 
a zero. 


580; Reserva memória para 
Torne o jogo mais 590: Verifica qual a tecla que foi 
difícil aumentando 0) apertada. 
560 GOTO 270 ú 2 
340 GojOçEm número de rounds. 


600; Verifica se a tecla apertada foi 
RETURN [CHRS (13)]. E 

v580 LET 75 afirmativo, pula para 680. 
40590 LET AS=INKEYS 610: Verifica se a tecla P foi 


v 7600 IF AS=CHRSC13) THEN GOTO 680 
v610 IF AS="P” THEN GOTO 390 
420 IF VALCAS)=0 ANO AS6)"0! THEN GOTO 650 620: Se nenhuma tecla foi apertada, 
v430 PRINT AS; pula para 650 para aumentar o valor 
640 LET Z5=ZS+AS de Q. 
650 LET 0=0+1 G 630: Se outra tecla que não 
v460 IF 0=500 THEN GOTO 320, RETURN ou P foi apertada, 
470 GOTO 590 imprime o caractere correspondente. 
480 LET Z=VAL(ZS) 640: Z$ contém todas as teclas que 
490 RETURN ' foram apertadas nesse round. 
48700 CLS BR 650-660: Contagem de tempo. Se Q 
710 PRINT "VOCE DESMAIOU” chega a 500 sem que nenhuma tecla 
720 STOP : tenha sido apertada, vai para 320. 
] 680: Transforma os algarismos da 
“string” Z$ em um valor numérico, 
para poder compará-lo com G*1 na 
linha 230. 
710: Mensagem que aparece quando 
você usa o Botão de Pânico pela 
quarta vez. 


Modificações 


Aa 40,240,320,390,550,700 Substitua CLS por PRINT CHRS(147) 
0 40,240,320,390,550,700 Substitua CLS por HOME 
ANDO 20,90,400, 410 Substitua RNO(O) por RNOCI) 

4v 80,90,400,410 Substitua RNO(O) por RO 

W 580 LET 78="0" 

4 590 GET AS 

6550 RS="":1F PEEX(-16384))127 THEN GET R$ 
595 IF R$="" THEM GOTO 650 

v 597 PAUSE 40 

vw 600 IF RS=CHRS(13) THEN PRUSE 203600 680 

V 60 IF AS="P” THEN PRUSE 305GOTO 390 

430 PRINT AS;aPRUSE 15 

540 IF 05250 THEM GOTO 320 


Tubarão 


associada a cada tecla. 


WO DIM NS(12):DIM KSC4):GOSUB 440 
20 LET S=0:LET T=0:LET 6=0 


70 GOSUB 400 
80 GOSUB 490zGOSUB 440 
90 LET NK=PXSLET Ny=py 

AO 100 LET 1S=INEYS 

NO IF 18=8(1) THEN LET WY=WY- 
120 1F 18=K5(2) THEN LET NX=WXH 
130 TF 18=K8(3) THEN LET Ny=nYA 
140 IF 185K8(4) THEM LET NX=HX-1 
150 LET X=WX:LET Y=NY=GOSUB 530 
180 TF F=] THEN GOTO 230 
170 LET X=PX:LET Y=PyaLET Ag=* * 
180 GOSUB 640 
190 LET XSNXSLET Y=NtaLET AS="T" 
200 GOSUB 440 
2IO LET PYX=NKaLET PY=ny' 
220 IF PX=TX AND PY=TY THEN GOSU8 340 
230 TF PX=6X AND PY=GY THEN GOTO 280 

PVARO 240 IF ANOCO))U THEN GOSUB 370 
250 LET X=14:LET Y=123LET AS=STRS(T) 
260 GOSUB 640 
270 LET G=6+):60T0 90 
280 FOR P= TO 20002NEXT P 


Como faria 
para o caçador 
se mover mais 


Modificações 


WO DIM NSCIZ, 16):DIM KS(4):GOSUB 460 
Oi0O I5="":1F PEEx(-16284))127 THEN GET 15 
400 BETIS 

240,390,400,550,560 Substitua RND(O) por RND(I) 
bw 240,390,400,550,580 Substitua RNOCO) por RNO 
19290, 600 Substitua CLS por HOME 

290,60 Substitua CLS por PRINT CHR$(147) 
W530 LET F=0:1F NSCY,K00)" * THEN LET F= 
YMO PRINT AT Y,X;AS 
10540 VIRA CY) :HTARCO PRINT AS 


O 640 PRINTE Yi32ny, 
6 MH LoCATE x, vspri 


Hummmmmm... as pessoas são tão gostosas! Acontece que, com o caçador sempre 
no seu encalço, não é sempre que você consegue apanhá-las. 

Você é o T (tubarão) e pode se movimentar apertando as teclas A, Z, Ne M. Veja 
quantos P (pessoas) consegue pegar antes de ser alcançado pelo C (caçador). 
Naturalmente, existe um senão. Cada vez que você consegue apanhar e devorar um 
delicioso ser humano, fica tão satisfeito que não consegue mais se lembrar da direção 


Como o programa funciona 


AL 640 PRINT CHRSC19);SFOR LL=] TO YSPRINTSMEXTSPRINT TRE(XO;AS 


10: Reserva espaço na memória para 
o mapa. Vai para uma sub-rotina 
onde são lidos os dados do 


às variáveis. 
30: Estabelece a fregiiência com que 
o caçador se movimenta. 

40-50: Estabelece as direções 
correspondentes às teclas. 

60: Estabelece a posição inicial do 
tubarão. 

70: Vai para a sub-rotina que 
imprime o mapa. 

80: Vai para sub-rotinas que 
escolhem as posições do caçador e 
das pessoas. 

90: Estabelece uma nova posição 
para o tubarão. 

100-140: Cateuta uma nova posição 
para o tubarão, dependendo da tecl 
que foi apertada. 

150: Verifica se a nova posição 
coincide com um obstáculo. 

160: Em caso afirmativo, o tubarão 
não se move. 

170-180: Imprime um espaço na 
posição antiga do tubarão. 

190-200: Imprime um T na nova 
posição do tubarão. 

210: Muda a posição do tubarão. 
220: Verifica se a nova posi 
coincide com um P; em caso 
afirmativo, vai para uma sub-rotina. 
230; Verifica se a nova posição 
coincide com o C; em caso 
afirmativo, pula para 280 para 
terminar o jogo. 

240: Movimenta o caçador. 
250-260: Imprime a contagem de 
pontos até o momento, 

270: Incrementa o número de 
movimentos e volta para o 
movimento seguinte. 

280: Faz uma pausa para que você 
possa ver se foi apanhado pelo 


46 290 CLS:PRINT “VOCE FOL APANHADO!* 
300 LET S=INT(100008(T/6)) PRINT “VOCE FEZ 
310 PRINT:PRINT "QUER JOGAR DE NOVO? (5, 


320 INPUT R$:IF A$="S” THEN GOTO 20 cm 


350 GOSUB 390:G0SUB 490 

360 RETURN 

370 LET X=GX:LET Y=6Y3 

380 GOSUB 640:GOSUB 440:RETURN 


HVAIO 390 LET KI=INTIRND(O)44)+1 
MVAIRO 400 LET K2=INTCRND(0)44)+ 


ANO LET TS=5(K1) 

420 LET KS(KI)=KS(KZ)SLET KSCKZ): 

430 RETURN 

440 GOSUB 550 
AND Y=TY THEN GOTO 440 
LET 6Y=Y 

470 LET AS="C":GOSUB 640 

480 RETURN 

490 GOSUB 550 

500 LET LET TY=Y 

510 LET AS="P"=GOSUB 640 

520 RETURN 


W 530 LET F=0:1F MIDSCNS(Y),X,1)0)” * THEN LET F=7 


540 RETURN 


AVAIO 550 LET K=INTIRND(O)414)+2 
(VAO 560 LET Y=INTCRND(0)49)+2 


570 GOSUB 530 

580 IF F=] THEN GOTO 550 

590 RETURN 

600 CLSSLET X=1 

610 FOR Y=1 TO N2:LET AS=HS(Y) 
620 GOSUB 640:NEXT Y 

630 RETURN 


OWA RO 640 PRINTE YEGMY,AS; 


650 RETURN 

640 FOR 1=1 TO 12:RERD MSCIDSNEXT 1 
670 RETURN 

680 DATA "DO00000000000000' 
690 DATA "O o 
700 DATA “O O 000 00 000 0" 
710 DATA "0 0 0 o 
720 DATA "O O 0000 0 0 0º 
730 DATA “000 00 000% 
740 DATA “O do f 
750 DATA "O O 00 O 

760 DATA “O O 00 O 000 O 
770 DATA “O 

780 DATA “t 


290-330; Imprime mensagem e contagem 
PONTOS" de pontos se o tubarão é apanhado. 
Pergunta se você quer jogar de novo. 


A contagem de 
pontos depende 
do número de 
pessoas comidas e 
do número de 
movimentos. 


340-360: Sub-rotina que aumenta a 
contagem e a probabilidade de o caçador 
mudar de posição e vai para outras sub- 
rotinas para trocar a função das teclas e 
mudar a posição da pessoa. 
tina que retira o caçador 

ição e o imprime em uma 
nova posição. 
390-430: Sub-rotina para trocar a função 
das teclas. 
440-480: Sub-rotina para imprimir o 
caçador, usando outra rotina para 
escolher uma posição para ele. A linha 
450 verifica se a posição escolhida já está 
ocupada pela pessoa. 
490-520: Sub-rotina para imprimir a 
pessoa, usando outra sub-rotina para 
escolher sua posição. 
530-540: Sub-rotina que verifica se a 
posição X,Y coincide com um obstáculo. 
Em caso afirmativo, F assume o valor 1. 
550-590: Sub-rotina que escolhe uma 
posição ao acaso e verifica se coincide 
com um obstáculo. 
600-630: Sub-rotina para imprimir o 
mapa. 
640-650: Sub-rotina para imprimir na 
posição X,Y. 
660-790: Sub-rotina para ler os dados do 
mapa 


Est nhas contêm os 
dados para o mapa. 
Para mudá-las, desenh 
um novo mapa em 
papel quadriculado e 
copie-o no programa, 
usando O para os 
obstáculos e espaços 
para as passagens. 


Receita de Bruxa E &»* 


Como assistente da Superbruxa, sua missão é percorrer o campo em uma vassoura 
voadora, recolhendo ingredientes para as poções maléficas da feiticeira. Você sabe 
exatamente o que procurar, porque ela transmite as receitas diretamente para a tela do 
seu computador. 

Ingredientes como U (Unha de Morcego) e O (Olho de Lagarto) passam por baixo de 
você. Aperte qualquer tecla para descer e apanhá-los (para ser bem-sucedido, você tem 
que descer bem em cima da letra). Tome cuidado, porque um deles pode ser o Ladrão Á 
| de Vassouras disfarçado. Se você colidir com o ladrão, perderá a vassoura. (Felizmente, 
você começa o jogo com três vassouras de reserva.) Se não conseguir todos os 
ingredientes, a Superbruxa não vai ficar nada satisfeita... 


: CLERR 200 Como o programa funciona 

% LET NAT ET FH=SO 20: Inicializa as variáveis (veja 
30 GOSUB 530:LET HENH se descobre o que representam). 
ep 30: H é a sua altura acima do 


| De Dê solo. NH é a nova altura depois 
30 LET EFSOSLET FESOSLET teh de um mergulho. 


60 FOR 1] TO 4:LET G(1)=03MEXT 1 a 50: EF e FF são bandeiras que 
TO LET RPC SET e do ieqGinas gendor jo 

1:GOSUB 610:NEXT 1 4 termina. HH é uma variável 

90 GOSUB 490:60SUB 430 para guardar alturas 

100 IF M=FM THEN GOTO 250 intermediárias. 

WO TF EF=1 THEN GOTO 230 60: A matriz G é usada para 


* THEN GOTO 90 contar quantos objetos de cada 
:60SUB 510 tipo você já apanhou. 
140 GOSUB 490:GOSUB 430 Está achando ) 70-80: Imprime a receita. 
150 LET HMA difícil? Torne 0) 90-120: Faz o “solo” e os 
160 IF HO THEN GOTO 130 jogo mais fácil | objetos se moverem na tela até 
70 IF P=17 THEN GOSUB 320 aumentando o ) uma tecla ser apertada. 
180 IF FF=] THEN GOTO 240 valor de FM na / 130-160: Mantém o solo e os 
190 GOSUB 530 linha 20, o que (objetos em movimento e faz a 
200 LET HH=H+1 :GOSUB 510:605UB 490 aumenta o bruxa descer até o solo. 
= HH: LF H=NH THEN GOTO 90 múmero total dy 170: Se P é 17, é porque a 
220 GOSUB 430:6TO 200 objetos. bruna negou ant oljeios 
230 LET AS="NULTO BE! A SUPERBRUXA FICOU SATISFEITA!” a JR 
240 LET AS="ACABARAM AS VASSOURAS!":GOTO 240 : 


200-220: Mantém o solo e os 
objetos em movimento e faz a 
bruxa subir de novo. 

230-270: Mensagens finais. 
280-310: Se o objeto é o Ladrão 
puras disfarçado, esta 

a imprime W na tela, 
diminui NW e levanta FF se as 
vassouras acabaram. 

320: Sub-rotina que verifica se o 
objeto é o Ladrão de Vassouras. 
330-350: Aumenta de 1 0 
número de objetos do tipo R 


ARDE DEMAIS!" 

260 LET X=1:LET Y=15:60SUB 610 
270 STOP 

280 LET A$="W":LET X=P:GOSUB 610 
290 FOR T=1 TO 1000:NEXT T 

300 LET NU=NW-1:1F NU=0 THEN LET FF=1 
310 RETURN 

320 IF W=] THEN GOSUB 280:RETURN 


dia 
VCR 330 LET 6(R)=0(R)+] 
) 340 LET AS=STRS(G(R))SLET X=17 


350 LET Y=1+R:GOSUB 410 
360 LET P=19:G0SUB 430 


370 LET F=0 recolhidos e mostra o novo total 
6788: S380 FOR 1=1 TO 4 na tela. Ne 
390 IF G(I)NCI) THEN LET F=F+] (Você pode 370-420: Verifica se todos os 
ingr tes da receita foram 


substituir as 
letras por 


recolhidos. 


Experimente 
mudar os 
ingredientes, 


430-480: Imprime um novo trecho 


400 NEXT 1 do solo e move 0 objeto até a 
ANO IF F=4 THEN LET EF=1 posição P. Se o objeto passa pela 
420 RETURN bruxa (P=20), escolhe um novo 
430 LET 6D=GD+1:IF GD=ó THEN LET GD=1 objeto. 


ELET X=ISLET Y=15:608UB 610 490-500: Imprime a bruxa. 
ET X=P:LET Y=14:60S5UB 610 510-520: Apaga a bruxa. 
P=20 THEN GOSU8 550 530-540: Escolhe uma nova altura 


aLET A$=CS:GOSU8 para a bruxa. 
o td e mm 550: Escolhe um objeto. 


560: Decide se o objeto vai ser o 


490 LET Ag="-4-=":LET X=163LET Y= 14H Ladrão de Vassouras. 
500 GOSUB 61 ETURA g 570: Coloca a primeira letra do 
510 LET AS= SLET X=16:LET Y=14-H objeto em CS e a faz posição do 


520 GOSUB 410:RETURN objeto (P) igual a 1. 
(VAO 530 LET NH=INT(RND(0)45+3) 580: Incrementa M, o número total 
540 RETURN de objetos. 
AvalO 550 LET R=INT(RND(0)44)+1 590: Se M é igual ao número 


560 LET U=0:LF RNO(0))0.8 THEN LET U=] máximo de objetos permitido, CS é 
570 LET CS=LEFTS(PS(R),1)SLET P=1 mudado para “CALDEIRÃO”. 
580 LET H=M+1 610: Sub-rotina geral para 

590 1F MEFM THEN LET CS="CALDEIRRO” posicionar o cursor e imprimir 


600 RETURN rise cg pi 
ONTÁRIO GO PRINTE VI44+, AS; :RETURA feto e obcolho/elenprimei 


46 420 CLS:PRINT:PRINT 700-770: Inicialização do programa. Ç 
630 PRINT “A POCRO DEVE TER":PRINT Os nomes of Gbjetos são 
640 FOR 1=1 TO 4 guardados em P$ e os símbolos do 


N 


) O VARO 650 LET N=INT(RND(O)43)+2:LET N(T)=N solo em HS. A linha 750 faz com 
660 PRINTSPRINT; S(D) que diferentes partes do solo sejam 
Ya! 670 NEXT L:PRINT:PRINT guardadas nos elementos da matriz 
3 sa 680 PRINT “APERTE RETURN PARA JOGAR” Gs. 
Cal 40 690 INPUT XS:CLS:RETURA ic Taio Sopobraa 


dt w 700 DIM PSC4DEDIM NC4):DIM GC4) 
v 710 DIM 68(5) 
720 FOR 1=1 TO 4:READ PSCL):NEXT 1 
730 DATA “UNHAS DE MORCEGO", "OLHOS DE LAGARTO”, "RAIZES DE URTIGA”, "LINGUAS DE SAPO” 
740 LET H$= e 
7750 FOR 1=1 TO S:LET 6S(6-1): 
760 NEXT LSLET GD=] 
770 RETURN 


você perder? Acrescente 
outros comentários ao jogo. 


MIDS(HS, L, 1420) 


Modificações A 610 PRINT CHRSC19):FOR LL=1 TO Y:PRTRT: 
o NEXT:PRINT TAB(X);AS:SRETURN 
JO (valo Suprina a linha 5 O SIO VTRBCY):HTRBCX): PRINT ASERETURN 
120 GET [8:1F 18="" THEN GOTO 90 O 6l0 PRINTE Y$32+X, AS; RETURN 

IF PEEK(-16384))127 THEN GET 18 QUNGIO LOCATE X,Y:PRINT AS 

THEN GOTO 90 4 620,690 Substitua CLS por PRINT CHR$(147) 
0,550,560,650 Substitua RND(O) por RND(T) 0620,690 Substitua CLS por HOME 
530,550,560,650 Substitua RNO(O) por RNO W 700 DIM PSC4,15):DIM NC4)3DIM BLA) 
w 570 LET CS=PSCR,)SLET P=] VTIO DIM 68(5,24) 
w750 FOR 1=1 TO S:LET GS(6-1)=HSC1 TO 1+20) 


aconteceu? Onde está você 
do parece normal, embora voc Ê a 
sinta um pouco tonto, É melhor “y Este é um jogo de 
olhar em. e ver se consegue i aventura. Você 
“O que está acontecendo. : demobririo que 


com o computador fazer durante o 
E próprio jogo. 


MP 


é : SP PEQ 
a 


e 3 Mi 
Como o programa funcion: 


CO SS ai ND 
20 BOSUE 1640 20: Vai para a sub-rotina onde são lidos todos os dados. 


30 RESTORESFOR 1=1 TO RERERD DS:MEXT 1 
40 CLS:PRINT "MICRO PUZZLE” 

50 PRINT 

60 PRINT “VOCE ESTA ”; 


dO FOR I=1 106 rá É 
90 LF LCLISR AMO (LISO THEM PRINT “HA UN" 531 h presa py Erro Tá 
100 TF LCL)=R ANO F(1)=0 ANO Z2=0 THEN PRINT RIGHTSCOSCL),LENCOS(1))-1);7 AQUI.” algum objeto no 

MO Z2=0:NEXT 1 quarto, 


120 PRINTSPRINT “VOCE PODE IR PARA *; 
130 FOR 15] TO LENCRSCR)) 
140 PRINT MIDSCRSCR), 1,1): IF ICLENCRSCRO) THEN PRINT 7"; 120-150: Imprime as direções 


150 MEXT 1 para onde o jogador pode 


160 PRINTSPRINT "= RINT MSSLET NS="HEINO" 
V7O IF FLTG)=] THEM PRINT "CONTAGEM REGRESSIVA PARA AUTO-DESTRULCAO EM 2º;L 


180 PRINT “QUE VAL FAZER AGORA"SLET O8- E 

190 LET VS=""SLET US="":LET VB=03LET 08=0:LET LI=LEN(OS) 180-230: Recebe as instruções do 
200 FOR I=1 TO LI jogador e as 

210 IF MIDSCOS, 1,1)=" = RO US="" THEM LET V8=LEFTS(OS, 1-1) objeto. 

220 TF MIOS(OS,141,1)0" ” ANO USC)” THEN LET MS=RIGATSCOS LI-I)3LET I=LI 
Bo We 1 


240 IF W8="" THEN LET 
250 FOR 151 TO str path) THEN LET Vs 
280 WEXT 1 


IF VBJV AND 060 THEN LET N$="FAZER O QUE CON 4454236070 40 


240-260: Verifica se a primeira palavra é 
um verbo conhecido. 


280-340: Escolhe uma 
mensagem apropriada. 


IF LENCOS))1 AND 08=0 BHO BC) 17 RMD VBC)18 THEN LET M$=484" O QUE"sBOTO 40 


E VB=17 OR VB=18 THEM GOTO 390 


400 TF F(4)=0 ANO LDO THEN GOTO 30 
410 IF LCT THEN LET H8="SEU TENPO ACABOU. 
420 PRINT MS3PRINT "O JOGO ACABOU” :GOSUA 


O MAXINIZADOR EXPLODIU!" 
1590:STOP 


350: Contagem regressiva. 


360-390: Vai para 
uma sub-rotina 
que depende do 
verbo escolhido. 


400-420: Fim do jogo, 


sereva 1 para obter 
um inventário (lista dos 
objetos que está carregando). 


430 FOR =) TOU 

440 TF US=08(1) THEN LET O8=1 

450 TF US=RIGHTS(OS(1), LEN(OS(1))-2) THEN LET DB=1 
440 TF LENCUSMCA THEM GOTO 480 

470 TF RIGHTS(S, LEN(US)-5)=08(1) THEM LET 08=1 
480 NEXT 1 

490 RETURN. 


500 PRINT “INVENTARIO"sPRINTSPRINT “VOCE ESTA CARREGANDO: 
S10 FOR Is] TO 6 

520 IF LC1)=25 THEN PRINT OSC1); *; 

530 NEXT 1 

540 LET $=*"sPRINT 

550 GOSUB 1420 

560 RETURN 


570 LEY D=0:1F 0850 THEM LET DaWi-2 

580 IF 0824 THEN LET D=08-24 

590 TF Re19 AMO Deé THEM LET RoR$13LET F(I3)=1360T0 740 

600 1F R=20 AND Dzó AND F(9)=0 THEN LET N$="0 GATO NAO DEIXA SRETURN 

610 TF R=20 ANO Dsé AND F(9)=] THEN LET ReRelSLET F(13)=1560TO 740 
TF (R=20 OR Re2i) ANO DS THEN LET R=R-13LET F()3)=1260T0 740 
TF R=2 AND L(1)=25 ANO D=3 THEN LET N$=NISSRETURN 


LET F(13)=03LET RLSLENCRSIR)) 


430-490: Sub-rotina que verifica se a 
segunda parte da instrução é o nome de 
um objeto conhecido. 


500-560: Sub-rotina que mostra na tela 
ia dos objetos que o jogador 
está carregando. 


570-770: Sub-rotina que analisa as 
instruções de direção. 


so 
o 
640 TF R=7 ANO F(3)=0 AND Ds2 THEM LET M$="UM RATO FURIOSO INPEDE R SUR PASSAGEN":RETURA 
“so 
so 


FOR 1=1 TO RLLET USSHIOSCRSCR) 1,1) 


70 TF (Rel) RAD Dx3 AND F(18)=0) THEN LET M$z"A PORTA ESTA FECHADA” RETURN 
480 TF (R=1O AND De4 AND F(16)=0) THEN LET N$x"A PORTA ESTA FECHADA" :RETUR 


690 E (US="N" AND D=1 ANO F(13)50) THEN LET RoR-6:LET F(I3)=1 
00 TF (U8="57 AND D=2 AMO F(13)=0) THEN LET R=R+63LET F(13)=] 
MO TF (US="0" ANO D=3 AMD F(13)=0) THEN LET ReR-IsLET FI3)=1 


Se o seu aicro é 

us VIC 20, vai 
precisar de aesória 
adicional, 


Já jogou algumas vezes e 


TO TF (USE AMO D=4 AMO F(13)=0) THEN LET ReRoIaLET F(13)=1 Leeds “chegar ao 
TO NET fim? Dê a você mesmo um 
740 LET Mg=roer ii aid pouco mais de tempo 

50 IF F(II)=O THEN LET A$="VOCE NRO PODE IR HESSA DIRECHO 

MO IF DC) THEM LET Me"IR PARA ONDE?” aumentando o valor de L 


TO RETURA inha 1920. 


780 LET AS="ESTA TREINANDO PARA A OLINPIRDR 

TO IF FCIO)=1 RA CR59 OR R=3) THEN LET M8="NHO DA PARA PULAR” 

800 RETURA 

BIO TF OB=8 THEM LET N$=5+ =+SeNDs-RETURA 

820 IF O8)6 THEN LET M$="NHO PODE PEGAR “sU8:RETURM 

830 IF LIDER THEM LET Mi="NRO ESTA AQUI” 

840 TF FIDBMCO THEM LET N8="QUE"4RIGHTECUS, LENCUS)=2967" 

850 IF L(08)=25 THEM LET K$="VOCÊ JR ESTA COM ELE(A)” 

860 IF 080 RMO LCOR)=R ARO F(OB)=0 THEM LET L(08)=25:LET M$=H05+48 
870 RETURN 

880 IF LIOE(25 THEM RETURM 

890 LET N$="WAO PODE!*:IF 08()1 THEN RETURM 

900 PRINT “COLOCAR A CHAVE ONDE” 

PIO INPUT US: IF 897 THEN GOSUR 430 

920 TF (00=8 DR U$="HO TREN") THEN LET MSSMASSLET FLIS)a|SLET LN)=A 
930 RETIRA 

940 TF F(NI=O AD LC7)525 THEM LET FCNID=1SLET FL3)=03LET LUI)=goLET MAS 
980 TF FCNII=I AMO L(7)525 AMD R=20 THEN LET F9)=ISLET N$=HSHMAS 
940 TF Re2 AMO D8=24 THEM LET F(A)=OSLET ME="ESTA ABERTA” 

o IF THEN GOSUA 1000 

980 IF DB=10 AMD (R=10 OR R=11) THEM LET F(6)=12H8="ESTA ASERTASRETURM 
990 RETURM. 


THEN LET F(2)=0:LET N$=E UM NICRO-VIDEDCASSETE- 
THEM LET N$="HA ALGUMA COISA DENTRO” 


1070 IF AMD (L(1)=25 OR R=16) THEN LET AS="TEM GRAVADO O MUMERO “71"= 

TOMO TF AMD (L(6)=25 OR R=17) THEN LET N$="TEM UM GRANDE BOTRO VERMELHO” 

1090 RETURN 

1100 LET MS=H68:1F 08=4 ANO L(OB)=25 THEN LET M$=nFS 

MO TF 08=4 AMO L(0B)()25 THEM LET M$="PRIMEIRO PRECISA PEGA-LO” 

VIZO RETURN 

30 TF O8C)S THEM LET M$="NAO PODE AMARRAR “+us:RETURA 

VI4O TF LCSDC25 THEN RETURN 

VI5O LET US=""sPRINT “ANARRAR A LINHA EM Quer 

160 INPUT US 

MITO UB=RIGHTSCUS, LENCUS)=1) 

VIBO TF U8)"= THEN GOSUE 430 

TIPO LET NS="NAO PODE ANARRAR +45 

1200 IF 08=13 AMO R=9 THEM F(S)=ISLET LCSI=0SLET Ng-H08 

TR10 RETURA E a ” 

1220 IF OB=13 OR 0850 AMO Re9 THEM LET M$="E LISA DEMAIS PARA SUBIR” 780-1580: Estas são as sub-rotinas 
para os verbos usados no 
programa. Procure as linhas com 
RETURN para ver onde uma sub- 


rotina acaba e a seguinte começa. 


A menos que esteja 
usando um micro TK, 
pode omitir todos os 
LET. 


V230 1F R=8 AMO F(5)=] THEN LET R=9:LET F(10)=035LET M$="0K"SRETURN Este programa não tem 
1240 IF OB=4 AMD Rel THEM LET SUA 570 tantas explicações quanto 
Y50 RETURM os outros porque isso 
1260 TF Re AMO FS)= THEM LET RSBSLET FCION=ISLET M$="OK"SRETUA À tiraria a graça do jogo. 
NO TF R=9 MO F(5)=0 THEN LET N$="NRO PODE DESCER!” is de 

V280 IF 08=4 AMD R=20 THEN LET 08=29360U8 570 Pope ca Joga sms 
1290 RETURN vezes, procure descobrir 
1300 IF DBC)6 OR L(66025 THEN RETURM para que servem todas as 
V3NO LET U$=""SPRINT "APONTAR PARA ONDE inhas. 

1320 INPUT WSEIF U5D*” TREM GOSUE 430 

1330 IF 08=22 THEM LET F(G)=1 

T34O LET NS="UITO BEN" 

1350 RETURA 

1360 IF OB)3 THEN LET N$="QUE BOBAGEM!” :RETURA 

180 IF 08=3 AMO L(OH)C)25 THEN LET M$="PRIVEIRO PRECISA PEGR-LO” 

1380 IF 08=3 AND L(08)=25 THEM LET LIDO)=03LET M$="WAAKE MARA!” 

1390 RETURN 

1400 TF (OB=19 OR OB=17) RHO R=24 AND LCIJC2S THEN LET M$=H9S3LET L=L-123LET FlIGM=] 

MAIO TF (OB=19 OR 08=17) AMO R=24 PRO L(1)=25 THEX LET F(12)=13LET M$=H5 

1420 RETURA 

1430 IF 08=3 AMD R=7 AMD L(08)=25 THEM LET F(3)=12LET LMOO)=03LET Bebes LET N$=HA8 

V44O TF L08)=25 THEN LET L(OR)=R3LET H$="FELTO” 

1450 RETURA 

1460 IF RO)24 THEN LET A$="NRO HA ENHUM TECLADO RGUI 

470 IF F(12)=0 THEN LET K$="0 TERMINAL ESTA TRANCADO 

T4BO LET H8="0 TERMINAL REPETE 2448 

1490 IF OB=18 THEN LET N$="A SENHA ESTA CORRETRC3LET F(17)=1 

1500 1F 08=20 THEN LET H8="IDENTIFICACAO DO TERMINAL” 

1510 RETURA 

1520 IF Rel4 AMO 08:21 AMO LB)=22 THEM LET LUB)=14:LET N$=HB60NOS:RETURM 

1530 IF R=14 AMO 08=21 FHO LCB)=14 THEN LET L(8)=22:LET N$=H88005 

1540 TF FCNS)=M THEM LET LOND=LUB) 

1550 IF O8=21 ANO F(dl=] AMD L(G)=25 ANO R=18 AMO F(17)=] THEM LET B=84103LET NS-HESSLET F(14)=1 

1540 IF DB=21 AMO F(6)=1 AMD L(6)=25 AMO R=18 AMD F(17)=0 TREM LET M8="D MRKINIZADOR ESTA DESLIGADO” 
1570 IF OB=22 THEN LET N$="NHO PODE!= 

1580 RETURN 


1590 LET S=02F0R 1=1 TO GIF L(1)=25 THEN S=5+ 1590-1630: Sub-rotina que 


490 NEXT 1 

TIO LET S=S+B:PRINT “VOCE FEZ *;S;* PONTOS" :RETURK 
1620 PRINT “APERTE RETURM PARA CONTINUAR: INPUT OS Rome: 
1630 RETURN 


calcula a contagem de 


1640 LET V=253LET W=31sLET 6=8 1640-1650: Inicializa variáveis 
1650 DIM RS(24)3DIM OSCU)ZOLM HSV) SOU LCG)3OLN FCI) e dimensiona matrizes. 


1660 DATA “DENTRO DO BURACO DO RATO. ..ESTA MULTO ESCURO” 

1670 DATA “NA ENTRADA DE UM BURACO DE RATO”, NA BORDA DE UMA MESA GIGANTESCA” 

1680 DATA “EM UM VESTIBULO”, “EM UM QUARTO COR-DE-ROSA”, “NA COZINHA” iz 

NH9O DATA “HO MELO DE UM TUKEL ESCURO E NAL-CHEIROSO”, “PERTO DE UMA ESTRADA OE FEmO" 1660-1880: Linhas de 
V700 DATA “PERTO DE UMA ARVORE DE PLASTICO, NA BORDA DE UMA MESA GIGANTESCA” dados. 

VTO DATA “DO LADO DE FORA DE UMA CASA DE APARENCIA ESTRANHA” 

1720 DATA “EM UMA SALA TODA AMARELA”, “PERTO DE UM APARELHO DE TU E UM GRAVADOR” 

V730 DATA “NO FINAL DE UM TUNEL ESCURO”, "PERTO DE UMA CAIXA COM UM BOTRO, LIGADA ROS TRILHOS" 

V740 DATA “RO LADO DOS TRILHOS”, "HO FIN DA LINHA... OS TRILHOS DESAPARECEM EM UM BURACO NA PAREDE" 


Otrva O Suprina a linha 10 
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V750 DATA "PERTO DE UMA PAREDE COM ENORMES TELAS DE TV”,"EM PE NA PLATAFORMA DO AXINIZADOR” 
1760 DATA “EM UMA PRATELEIRA COM ESTRANHOS APARELHOS. ..HR UMA ESCADA ENCOSTADA NA PRATELEIRA! 
1770 DATA "NO MEIO DE UMA ESCADA”, "PERTO DE UMA CAIXA DE ASPECTO CURIOSO” 
1780 DATA “EM UM BURACO NA PAREDE DO QUAL SAEM TRILHOS”, “DENTRO DE UM LABORATORIO” 
1990 DATA “PERTO DE UM TERNINAL DE COMPUTADOR TRANCADO À CHAVE” 
1800 DATA 16,12,3,21,5,17,19,14 
BIO DATA “1,” EGAR "LEVAR", "COLOCAR," 
COMER 


E: 
VE7O DATA EA 1 A 
1880 DATA PARA CIMA, PARA BALX 


1890-1910: Leitura de dados. 


LET NH$="0 TERMINAL IMPRIME: (SENHA) ?” 
MEIN? NAO PODE!” 
LET NGS="NADA DE IMPORTANTE” 
"0 TREM * 
1960 LET 75: "ALARME LIGADO 
1970 LET Mes: 
É 20- : Mens Ê 
“LET MOS="SE PFRSTA E ENTRA EM UM TUMEL= 1920-2000: Mensagens. 
RAIO DO MAXINIZADOR FUNCIONOU.VOCE VOLTOU RO TAMANHO NORMAL "2RETURN 


Modificações IMPORTANT 


seu micro é o 


hi Co dore 64 
640 Substitua CLS por HOME VIC 20, elimine os 


4 40 Substitua CLS por PRINT CHR$(147) espaços e os LET das 


caso contrári 

EA computador não as 

« «PARA OS MICROS TK dEditard: 

140 Substitua PRINT MIDSCR$(R),1,1) por PRINT R$(R,1) 

200 FOR 1=1 TO LI-1 

220 IF QS(1)=" " AND US="" THEN LET V$=08( TO 1-1) 

210 LF QS(1+1)0" "AND USO" THEN LET US=0S(L+] TO ):LET I=LI- 

245 IF LEN(USM(7 THEN LET VS=US+" “:GOTO 245 

370 GOSUB 5004(VB=1)+5708(VB)] AND VBL9)+780X(VB=9)+B108(VE=10 OR VB=]1) 
+B80%(VB=12)+9408(VB=13)+10008(VB=14) 

390 GOSUB 11004(VB=155+1 130% (VB=16)+12208(VB=17)+1260%(VB=18)+13004(VB=]9)+1360%(VB=20) 
+14008(VB=21)+1430%(VB=22)+14608(VB=23)+15208(VB=24 OR VB=25)+16308(VB=26) 

430 IF LENCUS)C14 THEN LET US=4S+" ":GOTO 430 

435 FOR [=1 TOW 

660 FOR 1=1 TO RL:LET US=RSCR, 1) 

1650 DIM R$(24,4):DIM 0S(W,14):DIK HS(V,7):DIM L(G):DIM FCTB) 

1920 LET R=11:LET B=B:LET L=100:LET N$="VOCE ACORDA...” 

2000 RETURN 

Linhas 430,810,840,920,940,950,1030,1100, 1200,1400,1410,1430,1520, 1530,1550 

Substitua MIS a MHS nestas Linhas pelo texto das linhas 1920 a 2000 

Exemplo: 630 1F R=2 AND L(1)=25 AND D=3 THEN LET MS="A CHAVE NAO PASSA" :RETURK 

Suprima as linhas 1920 a 1990 


Respostas dos problemas 


Aqui estão as respostas de alguns dos problemas 
propostos. 


Os Crânios da Pirâmide 
Para aumentar o número de crânios, substitua o 5 
da linha 260 por um número maior. 


Os limites do número que o jogador deve obter 
são fixados na linha 20. No programa original, o 
número está entre 10 e 39. Se você mudar o 30 
para 40, obterá um número entre 10 e 49. Se 
também mudar o 10 para 20, o número estará 
entre 20 e 59. 


O Desafio dos Monstros 

Para aumentar o número de rounds, substitua o 
número 11 nas linhas 260 e 550 por um número 
maior (o número deve ser o mesmo nas duas 
linhas). 

Se você aumentar o número de rounds, sentirá 
necessidade de recorrer mais vezes ao Botão de 
Pânico. Por isso, é aconselhável substituir o 
número 4 na linha 440 por um número maior. 


Tubarão 

Para fazer o caçador se mover mais 
fregiientemente, mude o valor de U na linha 30 
para um número um pouco menor, como 0,8, por 
exemplo. 


Receita de Bruxa 

Quando você perde o programa vai para a linha 
240 ou 250 e imprime uma mensagem. Mude essas 
linhas para o que você quiser. 


Nota especial para os usuários do TK-2000 


Apple, com uma única exceção: se a modificação for do tipo 

nun AS="":IF PEEK(-16384))127 THEN GET AS 

onde nnn é o número da linha e A$ é o nome de uma variável, substitua 
esta linha por: 

nan A$="":CALL -1639751F PEEX(-16385)50 THEN GET AS 
e acrescente as seguintes linhas: 

1 DATA 169,255,141,0,192,77 

2 DATA 16,192,141,255,191,96 

3 FOR 1=-16397 TO -16386 

4 READ A:POKE L,A:NEXT 1 


Nota para os usuários do MSX: Em todos os programas, acrescente a linha: 
E R=END(-TIME) 

Nota para os usuários do PC: Em todos os programas, acrescente a linha: 
E RANDOMIZE VAL (CKRIGHTE(CTIMES 25) 


Se o seu micro é um TK-2000, use as modificações indicadas para a família 


) 
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